home *** CD-ROM | disk | FTP | other *** search
/ AGA Toolkit '97 / The AGA Toolkit '97.iso / text / misc / port / str.s < prev    next >
Encoding:
Text File  |  1996-09-07  |  614 b   |  52 lines
  1.     MACHINE    68020
  2.  
  3.     INCDIR    "INCLUDE:"
  4.     INCLUDE    "Darkness.I"
  5.     INCLUDE    "Exec.Offsets"
  6.     INCLUDE    "Dos.Offsets"
  7.  
  8.  
  9.  
  10.     XREF    StrToNum
  11.     XREF    StrNumCat
  12.     XDEF    NumToStr
  13.  
  14.     SECTION    MyCode,CODE
  15.  
  16.     lea    DosLib,a1
  17.     moveq    #0,d0
  18.     move.l    4.w,a6
  19.     jsr    _LVOOpenLibrary(a6)
  20.     move.l    d0,a6
  21.     moveq    #0,d0
  22.  
  23. Start:
  24.     addq.l    #1,d0
  25.     lea    MyStr,a0
  26.     clr.b    (a0)
  27.     move.l    d0,-(sp)
  28.     bsr    StrNumCat
  29.     lea    MyStr,a0
  30.     bsr    StrToNum
  31.     move.l    d0,d1
  32.     move.l    (sp)+,d0
  33.     cmp.l    d0,d1
  34.     beq    Start
  35.     move.l    #MyStr,d1
  36.     move.l    d0,-(sp)
  37.     jsr    _LVOPutStr(a6)
  38.     move.l    (sp)+,d0
  39.     rts
  40.  
  41. MyStr:
  42.     ds.b    100
  43.  
  44. DosLib:
  45.     dc.b    "dos.library",0
  46.  
  47.  
  48.  
  49.     INCDIR    "SRC:Routines/"
  50.  
  51.     INCLUDE    "NumToStr-020.S"
  52.